home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 162 / Tiger_Disk_162_19xx_Tiger-Crew-Disk_de_Side_C.d64 / ende - 024 - (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  37 lines
  1. 10 printchr$(147);:poke53280,14:poke646,14:poke53281,11:gosub240
  2. 20 print"[147][154]     zuerst mal was schoen buntes!      ";
  3. 30 forz=1to800:next:forc=11to56:poke646,c:poke53281,11:::::::poke53281,.
  4. 35 poke53280,11::::::::::poke53280,.:
  5. 40 print"[164][164][164][164][164][175][175][175][175][175][185][185][185][185][185][162][162][162][162][163][163][162][162][162][162][185][185][185][185][185][175][175][175][175][175][164][164][164][164][164]";
  6. 50 print"[145] [145] [145] [145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145]";
  7. 60 print"                    ";;:nextc
  8. 70 forc=6to51:poke646,c:print"[157][157][145][157]";:poke53281,11:::::::poke53281,.:
  9. 80 print"                    ";
  10. 90 print"[157][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145] [145]";;"[157][157][157]";
  11. 100 print"  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146] ";;;:next:
  12. 110 forc=1to15:poke646,c:
  13. 120 fori=30to24step-.7
  14. 130 a=(peek(53265)and248)+(iand7):poke53265,a:
  15. 140 print"[145]                                        ";
  16. 150 print"[145] [145] [145] [145] [145] [145] [145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145] [145] [145] [145]";;;:
  17. 155 poke53272,17:poke53280,.:poke53281,.
  18. 160 print"[145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145]<[145]>[166]";
  19. 170 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][157]";" [146][166] [146][166] [146][166] [146][166] [146][166] ";
  20. 180 print"      [145][157][157][157][157][157][157]";:forx=1to25:next:next:next
  21. 185 poke53272,21:print"[147]":   gosub240
  22. 190 print"[147]";:poke56325,0:poke53281,11:poke53280,11:forz=0to5
  23. 195 print"aber jetzt...[145] ":
  24. 200 print" [144][164][164][164][164][156][175][175][175][175][175][175][175][185][185][185][185][129][185][185][185][158][162][162][162][153][162][162][154][162][162][162][162] [218] e n d e [218] [146] [145]";:
  25. 210 next:poke646,peek(53281):poke56325,58
  26. 220 wait197,63:printtab(68)"lukian":
  27. 230 forz=1to2000:next:sys64738
  28. 240 l=54296:s1=54273:s2=54276:s3=54277:s4=54278:s5=54287
  29. 250 fori=54272to54295:pokei,0:next
  30. 260 pokel,15:pokes3,14:pokes4,3:pokes2,21
  31. 270 ford=1to1:n=11:forx=3to7:s6=54272
  32. 280 m=33:pokes1,n:pokel,0:
  33. 290 fory=18to4:pokel,15:pokes5,m:pokel,0
  34. 300 m=36.3:n=12.1^.2:pokel,15:
  35. 310 next:next:next:pokes4,15:
  36. 320 forz=8to35 step.12:pokel,z*5:next:pokel,0 :return
  37.